home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / h / harddisk / hdordner / hdordneb.s < prev    next >
Encoding:
Text File  |  1996-09-18  |  1.1 KB  |  53 lines
  1. b_mifl:   equ     $7e9c
  2.  
  3. test:     move    #-1,-(a7)
  4.           move    #11,-(a7)
  5.           trap    #13
  6.           addq.l  #4,sp
  7.           btst    #3,d0
  8.           bne.L   ende
  9.  
  10. start:
  11.           pea     L103f8
  12.           move    #38,-(sp)
  13.           trap    #14
  14.           addq.l  #6,sp  
  15.  
  16.           move.w  #0,-(a7)          
  17.           move.l  #[sense-test+$100],d0
  18.           add.l   #[mdend-mdspace],d0
  19.           move    #0,-(a7)
  20.           move.l  d0,-(a7)
  21.           move.w  #$31,-(a7) ;Ptermres
  22.           trap    #1 ;GEMDOS
  23.            
  24. L103F8:   tst.b   $fc0003
  25.           beq.s   normtos
  26.           lea     mifl,a0
  27.           move.l  b_mifl,2(a0)
  28.  
  29. normtos:  
  30. mifl:     lea     $56fa,a2 
  31.           lea     sense,a0 
  32.           move.w  #$ff,d0 
  33. L10420:   lea     66(a0),a1
  34.           move.l  a1,(a0) 
  35.           move.w  #4,-2(a0)
  36.           move.l  a1,a0 
  37.           dbf     d0,L10420 
  38.           suba.w  #66,a0 
  39.           move.l  16(a2),(a0)
  40.           move.l  #sense,16(a2)  
  41.           rts
  42.  
  43. ende:     clr     -(sp)
  44.           trap    #1
  45.  
  46. sense:    equ *
  47. even
  48. data
  49. mdspace:
  50.           blk.b $4200,0 
  51. mdend:equ *
  52. even
  53. ə